source("global.R")
package ‘yaml’ was built under R version 3.4.4package ‘tidyverse’ was built under R version 3.4.2[37m── [1mAttaching packages[22m ────────────────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse 1.2.1 ──[39m
[37m[32m✔[37m [34mggplot2[37m 2.2.1.[31m9000[37m [32m✔[37m [34mpurrr [37m 0.2.4
[32m✔[37m [34mtibble [37m 1.4.2 [32m✔[37m [34mdplyr [37m 0.7.4
[32m✔[37m [34mtidyr [37m 0.8.0 [32m✔[37m [34mstringr[37m 1.3.0
[32m✔[37m [34mreadr [37m 1.1.1 [32m✔[37m [34mforcats[37m 0.2.0 [39m
package ‘tibble’ was built under R version 3.4.3package ‘tidyr’ was built under R version 3.4.3package ‘purrr’ was built under R version 3.4.2package ‘dplyr’ was built under R version 3.4.2package ‘stringr’ was built under R version 3.4.3[37m── [1mConflicts[22m ───────────────────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
[31m✖[37m [34mdplyr[37m::[32mfilter()[37m masks [34mstats[37m::filter()
[31m✖[37m [34mdplyr[37m::[32mlag()[37m masks [34mstats[37m::lag()
[31m✖[37m [34mdplyr[37m::[32mvars()[37m masks [34mggplot2[37m::vars()[39m
Attaching package: ‘plotly’
The following object is masked from ‘package:ggplot2’:
last_plot
The following object is masked from ‘package:stats’:
filter
The following object is masked from ‘package:graphics’:
layout
package ‘heatmaply’ was built under R version 3.4.2Loading required package: viridis
Loading required package: viridisLite
package ‘viridisLite’ was built under R version 3.4.3
Attaching package: ‘viridis’
The following object is masked from ‘package:viridisLite’:
viridis.map
======================
Welcome to heatmaply version 0.13.0
Type citation('heatmaply') for how to cite the package.
Type ?heatmaply for the main documentation.
The github page is: https://github.com/talgalili/heatmaply/
Please submit your suggestions and bug-reports at: https://github.com/talgalili/heatmaply/issues
Or contact: <tal.galili@gmail.com>
======================
package ‘survminer’ was built under R version 3.4.2Loading required package: ggpubr
package ‘ggpubr’ was built under R version 3.4.2Loading required package: magrittr
Attaching package: ‘magrittr’
The following object is masked from ‘package:purrr’:
set_names
The following object is masked from ‘package:tidyr’:
extract
Attaching package: ‘shinydashboard’
The following object is masked from ‘package:graphics’:
box
Loading required package: productplots
Attaching package: ‘ggmosaic’
The following objects are masked from ‘package:productplots’:
ddecker, hspine, mosaic, prodcalc, spine, vspine
Error in fluidPage(br(), titleBox("About"), fluidRow(column(width = 12, :
could not find function "fluidPage"
display_x <- panimmune_data$sample_selection_choices[1]
display_y <- panimmune_data$cell_content_choices[1]
internal_x <- get_variable_internal_name(display_x)
internal_y <- get_variable_internal_name(display_y)
plot_df <- panimmune_data$df %>%
select_(.dots = c(internal_x, internal_y)) %>%
.[complete.cases(.),]
plot <- create_violinplot(
plot_df,
internal_x,
internal_y,
internal_x,
xlab = display_x,
ylab = display_y,
fill_colors = decide_plot_colors(panimmune_data, internal_x)
)
the condition has length > 1 and only the first element will be used
plot

ggplotly(plot) %>%
layout(hovermode = "closest")
packageVersion('plotly')
[1] ‘4.7.1.9000’
LS0tCnRpdGxlOiAiVGVzdGluZyB2YXJpb3VzIHBsb3QgZnVuY3Rpb25zIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgpgYGB7cn0Kc291cmNlKCJnbG9iYWwuUiIpCmBgYAoKYGBge3J9CmRpc3BsYXlfeCAgPC0gcGFuaW1tdW5lX2RhdGEkc2FtcGxlX3NlbGVjdGlvbl9jaG9pY2VzWzFdCmRpc3BsYXlfeSAgPC0gcGFuaW1tdW5lX2RhdGEkY2VsbF9jb250ZW50X2Nob2ljZXNbMV0KaW50ZXJuYWxfeCA8LSBnZXRfdmFyaWFibGVfaW50ZXJuYWxfbmFtZShkaXNwbGF5X3gpCmludGVybmFsX3kgPC0gZ2V0X3ZhcmlhYmxlX2ludGVybmFsX25hbWUoZGlzcGxheV95KQoKcGxvdF9kZiA8LSBwYW5pbW11bmVfZGF0YSRkZiAlPiUgCiAgICBzZWxlY3RfKC5kb3RzID0gYyhpbnRlcm5hbF94LCBpbnRlcm5hbF95KSkgJT4lIAogICAgLltjb21wbGV0ZS5jYXNlcyguKSxdCgpwbG90IDwtIGNyZWF0ZV92aW9saW5wbG90KAogICAgcGxvdF9kZiwKICAgIGludGVybmFsX3gsCiAgICBpbnRlcm5hbF95LAogICAgaW50ZXJuYWxfeCwKICAgIHhsYWIgPSBkaXNwbGF5X3gsCiAgICB5bGFiID0gZGlzcGxheV95LAogICAgZmlsbF9jb2xvcnMgPSBkZWNpZGVfcGxvdF9jb2xvcnMocGFuaW1tdW5lX2RhdGEsIGludGVybmFsX3gpCikKcGxvdApgYGAKCgpgYGB7cn0KZ2dwbG90bHkocGxvdCkgJT4lIAogICAgbGF5b3V0KGhvdmVybW9kZSA9ICJjbG9zZXN0IikKYGBgCgpgYGB7cn0KcGFja2FnZVZlcnNpb24oJ3Bsb3RseScpCmBgYAoKYGBge3J9CnBsb3RfZGYgJT4lIAogICAgcGxvdF9seSgKICAgICAgICB4ID0gflN1YnR5cGVfSW1tdW5lX01vZGVsX0Jhc2VkLAogICAgICAgIHkgPSB+bGV1a29jeXRlX2ZyYWN0aW9uLAogICAgICAgIHNwbGl0ID0gflN1YnR5cGVfSW1tdW5lX01vZGVsX0Jhc2VkLAogICAgICAgIHR5cGUgPSAndmlvbGluJywKICAgICAgICBib3ggPSBsaXN0KAogICAgICAgICAgICB2aXNpYmxlID0gVAogICAgICAgICksCiAgICAgICAgbWVhbmxpbmUgPSBsaXN0KAogICAgICAgICAgICB2aXNpYmxlID0gVAogICAgICAgICkKICAgICkKYGBgCgo=